Dim miMatInt() As Integer
ReDim miMatInt(10) As Integer

Debug.Print "Dim inicial " & UBound(miMatInt)
ReDim miMatInt(20) As Integer
    
Debug.Print "Dim final   " & UBound(miMatInt)
